home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / misc / PVKat.lha / PVKat / PVKat_Start.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-13  |  892b  |  34 lines
  1. /********************************************/
  2. /* PicView Kataloger User-Startup-Interface */
  3. /********************************************/
  4.  
  5. signal on BREAK_C
  6. signal on BREAK_D
  7.  
  8. if ~exists("s:PVKat.pref") then exit
  9. if ~Open(pref,"s:PVKat.pref",r) then exit
  10. temp = readln(pref)
  11. Close(pref)
  12. parse var temp . . . . zs . . . tempdir .
  13. tempdir = compress(tempdir,'"')
  14.  
  15. if zs = 0 then exit
  16.  
  17. if ~exists(tempdir'pv.rexx') then exit
  18. say "*******************************************"
  19. say "**            PVKat_Start                **"
  20. say "*******************************************"
  21. say ""
  22. say "!!!       Systemabsturtz entdeckt       !!!"
  23. say "Abruch durch Ctrl-C oder Ctrl-D 30s möglich"
  24. call Delay(1500)
  25. say ""
  26. say "Starte Programm!"
  27. address command 'run >nil: rx pvkat CONTINUE'
  28. exit
  29.  
  30. BREAK_D:
  31. address command 'delete >nil: 'tempdir'PV.rexx 'tempdir'bild.temp 'tempdir'kat.temp'
  32. BREAK_C:
  33. exit 10
  34.